home *** CD-ROM | disk | FTP | other *** search
/ Grand Slam 3 / Grand Slam 3.iso / 030 / airpt119.arj / AIRPT049.API < prev    next >
Text File  |  1995-09-26  |  3KB  |  129 lines
  1. ; Fichier include SCASM AIRPT049.API pour POLY3D TYPE = &COLLINE1
  2. ; SCASM include file AIRPT049.API for POLY3D TYPE = &COLLINE1
  3.  
  4. ; -----------------------------------------------------
  5. ; Very small mountain or hillside macro For use With  Scasm.exe
  6. ; scenery assembler by Manfred Moldenhauer CIS:100117.1465
  7. ; You must change the point table to your needs.
  8. ; Remember that scale factor 4 means you'll have to divide
  9. ; real distances with 4.
  10. ; If you change this macro, remember to draw triangle polygones only.
  11. ; You may have to use a decompiler to verify the direction of the
  12. ; vector, both for the polygons and the vector jump instructions
  13. ; if you make changes e.g..<vbg>
  14. ; ------------------------------------------------------
  15. ; Prepared by Jan Nielsen CIS 100044,1631
  16. ; ------------------------------------------------------
  17. ; %1 et %2 lisent les coordonnées / lat-long
  18. ; %4 lit la taille indiquée par airport / size
  19. ; %5 : orientation / heading
  20.  
  21. Area( B  %1  %2  %3 )
  22.    
  23.    PerspectiveCall( :A2 )
  24.    Jump( :A1 )
  25.  
  26. :A2
  27.     Perspective
  28.     RefPoint( 2 :A3  %4  %1  %2 v1= %10 E= %11 )
  29.     RotatedCall(  :R1  0  0  %5  )
  30.     Return
  31. :R1
  32.     Call( :Test )
  33.     VecPoints(  a  1
  34.       -0     0  -367
  35.     -181     0  -266
  36.     -200     0   120
  37.       30     0   359
  38.      171     0   237
  39.      104     0  -260
  40.      -13    48  -195
  41.       61    48   203
  42.     )
  43.     IfVarAnd( :T100 0340 FFFF )
  44.     ShadedColor( 21 F0 )
  45.     Bitmap( %6 0 0 0 0 )
  46.     Dwx( 81 1 )
  47.     Inst_7D
  48.     ShadedTexPoly(  a
  49.     1    125    150
  50.     7    250      0
  51.     2      0      0
  52.     )
  53.     Inst_7D
  54.     ShadedTexPoly( a
  55.     3        125     150
  56.     2        250     0
  57.     7        0       0
  58.     )
  59.     Inst_7D
  60.     ShadedTexPoly( a
  61.     8        125     150
  62.     3        250     0
  63.     7        0       0
  64.     )
  65.     Inst_7D
  66.     ShadedTexPoly( a
  67.     4        125     150
  68.     3        250     0
  69.     8        0       0
  70.     )
  71.     Inst_7D
  72.     ShadedTexPoly( a
  73.     5        125     150
  74.     4        250     0
  75.     8        0       0
  76.     )
  77.     Inst_7D
  78.     ShadedTexPoly( a
  79.     6        125     150
  80.     5        250     0
  81.     8        0       0
  82.     )
  83.     Inst_7D
  84.     ShadedTexPoly( a
  85.     7        125     150
  86.     6        250     0
  87.     8        0       0
  88.     )
  89.     Inst_7D
  90.     ShadedTexPoly( a
  91.     1        125     150
  92.     6        250     0
  93.     7        0       0
  94.     )
  95.     Dwx( 81 0 )
  96.     Jump( :T200 )
  97.  
  98. :T100
  99.     ShadedColor( F021 )
  100.     Poly( a  1     7     2  )
  101.     Poly( a  3     2     7  )
  102.     Poly( a  8     3     7  )
  103.     Poly( a  4     3     8  )
  104.     Poly( a  5     4     8  )
  105.     Poly( a  6     5     8  )
  106.     Poly( a  7     6     8  )
  107.     Poly( a  1     6     7  )
  108. :T200
  109.     Return
  110.  
  111. :Test
  112.     VectorJump( :NoCrash ai 1 7 2 )
  113.     VectorJump( :NoCrash ai 3 2 7 )
  114.     VectorJump( :NoCrash ai 8 3 7 )
  115.     VectorJump( :NoCrash ai 4 3 8 )
  116.     VectorJump( :NoCrash ai 5 4 8 )
  117.     VectorJump( :NoCrash ai 6 5 8 )
  118.     VectorJump( :NoCrash ai 7 6 8 )
  119.     VectorJump( :NoCrash ai 1 6 7 )
  120.        SetVar( 284 2 )
  121. :NoCrash
  122.     Return
  123.  
  124. :A3
  125.     Return
  126.  
  127. :A1
  128. EndA
  129.